home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g28.bas < prev    next >
BASIC Source File  |  1991-10-18  |  586b  |  25 lines
  1. 100 ' G28 T.WAKAMATSU
  2. 110 DIM H(20),X(20),Y(20)
  3. 120 FOR I=1 TO 10:READ H(I):NEXT I
  4. 130 DATA 4,5,8,9,2,3,6,7,10,1
  5. 140 PI=3.14159!:CLS
  6. 150 FOR P=1 TO 3
  7. 160   READ A,B:DATA 9,4,6,1,0,0
  8. 170   K=180/5:F=0
  9. 180   FOR L=0 TO 120 STEP 3
  10. 190     N=0:J=F:F=F+3
  11. 200     FOR I=L TO 360+L-K STEP K
  12. 210       J=100-J:M=I+J
  13. 220       T=M/180*PI
  14. 230       N=N+1
  15. 240       X(N)=239*COS(T)+320
  16. 250       Y(N)=239*SIN(T)+240
  17. 260     NEXT I
  18. 270     PSET(X(1),Y(1))
  19. 280     FOR I=1 TO 10
  20. 290       B=A-B
  21. 300       LINE-(X(H(I)),Y(H(I))),PSET,%B
  22. 310     NEXT I
  23. 320   NEXT L
  24. 330 NEXT P
  25.